home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinXP NTP Servers.xpl < prev    next >
Text File  |  2002-04-06  |  2KB  |  59 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="1"
  3. "COUNT"="5"
  4. "UIPATH 1"="Network\Network Time Protocol"
  5. "NAME"="NTP Servers"
  6. "VERSION"="2.00"
  7. "OSVERSION"="0000011"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="NTP Server 1"
  10. "TEXT 2"="NTP Server 2"
  11. "TEXT 3"="NTP Server 3"
  12. "TEXT 4"="NTP Server 4"
  13. "TEXT 5"="NTP Server 5"
  14. "DESCRIPTION 1"="Specifies your desired NTP (network time protocol) servers.  Windows will automatically set your computer's clock to synchronize with the remote server's clock."
  15. "DESCRIPTION 2"="Can be located on the Internet, or your LAN/WAN, etc."
  16. "DESCRIPTION 3"="The default value for "Server 1" is "time.windows.com" and "time.nist.gov" for "Server 2".
  17. "DESCRIPTION 4"="You may change them to whatever you wish.  The Internet has many NTP servers available, usually free to synchronize with."
  18. "AUTHOR"="MacGyver aka Habeeb J. Dihu / TeX HeX of Xteq Systems"
  19. "CONTACTURL"="http://www.macgyver.org/"
  20. "COPYRIGHT"="Copyright ⌐ MacGyver aka Habeeb J. Dihu / Xteq Systems - All Rights Reserved."
  21. "COMMENT 1"="No time like the present. "
  22. "COMMENT 2"="Based on plug-in by Xteq Systems (CptSiskoX)"
  23.  
  24.  
  25. sPath="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\DateTime\Servers\"
  26. Sub Plugin_Initialize 
  27.  if RegPathExists(sPath) then
  28.  
  29.     for l=1 to 5
  30.         s=RegReadValue(sPath & l)
  31.         Call SetUIElement(l,s)
  32.     Next
  33.  
  34.  else
  35.     Call Disable()
  36.  end if
  37. End Sub
  38.  
  39. Sub Plugin_CheckData(ElementIndex)
  40. End Sub
  41.  
  42. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  43.  for l=1 to 5
  44.      s=GetUIElement(l)
  45.      if len(s)>0 then
  46.         Call RegWriteValue(sPath & l,s,1)
  47.         Call Restart()
  48.      else
  49.         if RegValueExists(sPath & l) then
  50.            Call RegDeleteValue(sPath & l)
  51.         end if
  52.      end if
  53.  next
  54.  
  55. End Sub
  56.  
  57. Sub Plugin_Terminate 
  58. End Sub
  59.